﻿
Public Class MI_Historia_clinica
    Inherits System.Web.UI.Page
    Shared PersonaWeb As New Persona



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim imagenFondo As Image = Page.Master.FindControl("Image2")


        If Not Page.IsPostBack Then
            FG.culturaPaginas()

            imagenFondo.Height = 500


            'capturo la persona logueada por quese vacia 
            PersonaWeb = PersLOgueada



            p_ficha_Medica.Visible = False
            CargaGrillaCnResumen()


            ''''''''' como es de mi visita ,, de saco el boton de agregar el boton de agregar grupo sanquinieo





        End If


    End Sub


    Private Sub CargaGrillaCnResumen()


        Dim param(0) As ADODB.Parameter
        Dim Rs As ADODB.Recordset


        param(0) = New ADODB.Parameter
        param(0).Name = "@dni"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = PersonaWeb.Dev_Dni
        param(0).Size = 10


        '//////////////////////////
        'cargo los gvs''
        '///////////////////////


        ' cargo el resumen de la historia clinica
        Rs = Datos.TraerTodos("TraE_resumen_de_hc_x_Dni", param, " cargaAntecentesPAtologicos -historia-clinico")
        Gv_HISTORAL_CLINICO.DataSource = FG.cargaUnDataTable(Rs)
        Gv_HISTORAL_CLINICO.DataBind()



        '''''si no hay registrospono el cartel..
        If Rs.RecordCount = 0 Then
            FG.MuestraCartel("No hay historial Clinico", lblMesaje)
            P_ReumeHIstoriaClinica.GroupingText = ""
        Else
            P_ReumeHIstoriaClinica.GroupingText = "-"
            FG.SacaCartelDeAViso(lblMesaje)
        End If

    End Sub

    Protected Sub Gv_HISTORAL_CLINICO_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Gv_HISTORAL_CLINICO.SelectedIndexChanged
        Dim row As GridViewRow = Gv_HISTORAL_CLINICO.SelectedRow




        lblfecha_fichaMEdica.Text = row.Cells(1).Text   'fecha
        lblMOtFichaMEdica.Text = row.Cells(2).Text       'motivo
        lblEspecialidad.Text = row.Cells(3).Text         'especialidad
        lblInstitucion.Text = row.Cells(4).Text           'institucion
        lbl_tipo.Text = row.Cells(5).Text                'tipo de visita



        'aca consulto
        TRaeDAtosDeFichaMEdica(row.Cells(1).Text, row.Cells(2).Text, row.Cells(3).Text, row.Cells(4).Text, row.Cells(5).Text)

        p_ficha_Medica.Visible = True



    End Sub

    Private Sub TRaeDAtosDeFichaMEdica(ByVal _fecha As String, ByVal _motivo As String, ByVal _especial As String, ByVal _inst As String, ByVal _tipoVisita As String)
        Dim param(5) As ADODB.Parameter
        Dim Rs As ADODB.Recordset






        param(0) = New ADODB.Parameter
        param(0).Name = "@fecha"
        param(0).Type = ADODB.DataTypeEnum.adDate
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = (_fecha)
        param(0).Size = 20


        param(1) = New ADODB.Parameter
        param(1).Name = "@motivo"
        param(1).Type = ADODB.DataTypeEnum.adVarChar
        param(1).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(1).Value = _motivo
        param(1).Size = 100

        param(2) = New ADODB.Parameter
        param(2).Name = "@especialidad"
        param(2).Type = ADODB.DataTypeEnum.adVarChar
        param(2).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(2).Value = _especial
        param(2).Size = 100

        param(3) = New ADODB.Parameter
        param(3).Name = "@institucion"
        param(3).Type = ADODB.DataTypeEnum.adVarChar
        param(3).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(3).Value = _inst
        param(3).Size = 50

        param(4) = New ADODB.Parameter
        param(4).Name = "@tipoDeVisita"
        param(4).Type = ADODB.DataTypeEnum.adVarChar
        param(4).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(4).Value = _tipoVisita
        param(4).Size = 50

        param(5) = New ADODB.Parameter
        param(5).Name = "@Dni"
        param(5).Type = ADODB.DataTypeEnum.adVarChar
        param(5).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(5).Value = PersonaWeb.Dev_Dni
        param(5).Size = 10




        ' cargo los disgnosticos 
        Rs = Datos.TraerTodos("TRae_FichaMedicaDeDiagnostico", param, "TRaeDAtosDeFichaMEdica- hictorial medico")
        Gv_FichaMedica_diagnostico.DataSource = FG.cargaUnDataTable(Rs)
        Gv_FichaMedica_diagnostico.DataBind()
        If Rs.RecordCount > 0 Then
            TabContainer_fichamedica.ActiveTabIndex = 0
        End If
        '----------------------

        'cargo las prespcripciones
        Rs = Datos.TraerTodos("TRae_FichaMedica_Prescripciones", param, "TRaeDAtosDeFichaMEdica- hictorial medico")
        Gv_FichaMedica_Prescipciones.DataSource = FG.cargaUnDataTable(Rs)
        Gv_FichaMedica_Prescipciones.DataBind()

        If Rs.RecordCount > 0 Then
            TabContainer_fichamedica.ActiveTabIndex = 1
        End If
        '-------------------------------

        'cargo los registros patologicos 
        Rs = Datos.TraerTodos("TRae_FichaMedica_DetalleIngresoPatologicos", param, "TRaeDAtosDeFichaMEdica- hictorial medico")
        Gv_fichaMedica_RegPatologicos.DataSource = FG.cargaUnDataTable(Rs)
        Gv_fichaMedica_RegPatologicos.DataBind()
        If Rs.RecordCount > 0 Then
            TabContainer_fichamedica.ActiveTabIndex = 2
        End If
        '------------------


        'cargo las vacunas recibidas
        Rs = Datos.TraerTodos("TRae_FichaMedica_DeVacunas", param, "TRaeDAtosDeFichaMEdica- hictorial medico")
        gv_FichaMedica_vacunas.DataSource = FG.cargaUnDataTable(Rs)
        gv_FichaMedica_vacunas.DataBind()
        If Rs.RecordCount > 0 Then
            TabContainer_fichamedica.ActiveTabIndex = 3
        End If
        '--------------------------------------


        'cargo los reportes de enfermeria
        Rs = Datos.TraerTodos("TRae_FichaMedica_ReporteEnfermeria", param, "TRaeDAtosDeFichaMEdica- hictorial medico")
        gv_reportEnfermeria.DataSource = FG.cargaUnDataTable(Rs)
        gv_reportEnfermeria.DataBind()
        If Rs.RecordCount > 0 Then
            TabContainer_fichamedica.ActiveTabIndex = 4
        End If
        '----------------------------


        ''busco los registros de generales de ese dia
        'Rs = Datos.TraerTodos("TRae_FichaMedica", param, "TRaeDAtosDeFichaMEdica- hictorial medico")

        'gv_fichaMedcia.DataSource = FG.cargaUnDataTable(Rs)
        'gv_fichaMedcia.DataBind()

        ''--------------------------------------------




        ' ''aca busco los ingresos de registros patologicos
        'Rs = Datos.TraerTodos("TRae_FichaMedica_DetalleIngresoPatologicos", param, "TRaeDAtosDeFichaMEdica- hictorial medico")

        'If Rs.RecordCount > 0 Then

        '    P_detalleFichaMedica_potologia.Visible = True
        '    gv_fichaMedicaPAtologia.DataSource = FG.cargaUnDataTable(Rs)

        '    gv_fichaMedicaPAtologia.DataBind()

        'End If
        ''.........................................


    End Sub

    Protected Sub lnkbtnCierraFichamedica1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lnkbtnCierraFichamedica1.Click

        p_ficha_Medica.Visible = False

    End Sub
End Class